home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / mced-1.1.lha / Install MCEd < prev    next >
Encoding:
Text File  |  1992-09-02  |  2.1 KB  |  104 lines
  1. ; Installer script for MCEd
  2. ; $VER: Install MCEd 1.1 (18.2.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @default-dest "REXX:CEDScripts")
  7.  
  8. (set #comm-dir "CEDScripts/")
  9.  
  10. ; ***************************************************************************
  11. ; English strings
  12.  
  13. (set #welcome
  14.     (cat "\nMCEd installation\n\n\n"
  15.                 "This script installs MCEd 1.1\n"
  16.                 "on your Amiga.\n\n\n\n"
  17.                 "MCEd package is\n"
  18.                 "Copyright © 1993-95 Michael Letowski\n"
  19.                 "All rights reserved.\n\n"))
  20.  
  21. (set #where-commands
  22.     (cat "Where should MCEd scripts be installed?"))
  23.  
  24. (set #where-help
  25.     (cat "\n\"REXX:\" is a place to hold\n"
  26.                 " your ARexx scripts.\n"
  27.                 "\"CEDScripts\" drawer is a default\n"
  28.                 " drawer for CEd's scripts.\n\n"))
  29.  
  30. (set #which-commands
  31.     (cat "Which MCEd scripts should be installed?"))
  32.  
  33. (set #which-commands-help
  34.     (cat "\n\n\"Indent.ced\" indents line or block;"
  35.                 "\n\n\"MakeComment.ced\" makes boxed comments;"
  36.                 "\n\n\"Outdent.ced\" outdents line or block;"
  37.                 "\n\n\"Paginate.ced\" inserts page numbers;"
  38.                 "\n\n\"Preview.ced\" shows current file with formatting;"
  39.                 "\n\n\"Stats.ced\" shows basic text's statistics;"
  40.                 "\n\n\"Undo.ced\" undoes changes made by MCEd scripts.\n\n\n"))
  41.  
  42. ; ***************************************************************************
  43. ; Install MCommands
  44.  
  45. (message #welcome)
  46.  
  47. (welcome)
  48. (set old_level @user-level)
  49.  
  50. (user 2)
  51. (set #mcommands-dir
  52.     (askdir
  53.         (prompt #where-commands)
  54.         (help #where-help)
  55.         (default @default-dest))
  56. )
  57.  
  58. ; Choose commands
  59. (set commands
  60.     (askoptions
  61.         (prompt #which-commands)
  62.         (help #which-commands-help @askoptions-help)
  63.         (choices
  64.             "Indent.ced"
  65.             "MakeComment.ced"
  66.             "Outdent.ced"
  67.             "Paginate.ced"
  68.             "Preview.ced"
  69.             "Stats.ced"
  70.             "Undo.ced")
  71.     )
  72. )
  73.  
  74. ; Do copy
  75. (user old_level)
  76. (set n 0)
  77. (while
  78.     (set comm
  79.         (select n
  80.             "Indent.ced"
  81.             "MakeComment.ced"
  82.             "Outdent.ced"
  83.             "Paginate.ced"
  84.             "Preview.ced"
  85.             "Stats.ced"
  86.             "Undo.ced"
  87.             "")
  88.     )
  89.     (
  90.         (if (IN commands n)
  91.             (copyfiles
  92.                 (source (cat #comm-dir comm))
  93.                 (dest #mcommands-dir)
  94.             )
  95.         )
  96.         (set n (+ n 1))
  97.         (complete (* n 14))
  98.     )
  99. )
  100.  
  101. (set @default-dest #mcommands-dir)
  102. (complete 100)
  103. (exit)
  104.